* What Causes Polarization on IP Policy?
* Maggie Wittlin, Lisa Larrimore Ouellette, and Gregory N. Mandel

clear
use "data.dta"

* SECTION II.B – Sample Characteristics

* Descriptive statistics 
* (see codebook to interpret numerical values)
tab gender
tab race
tab age
tab income
tab region
tab party

* Figures 1 & 2
* (note that the nationally representative sample is not public,
* so this only graphs our data for IP practitioners)
graph twoway kdensity hierarch, ///
  xlabel(0(.1)1) xtitle("Hierarchy") ylabel(, nogrid noticks nolabels) ///
  legend(off) lcolor(green) lwidth(thick)
graph twoway kdensity individ, ///
  xlabel(0(.1)1) xtitle("Individualism") ylabel(, nogrid noticks nolabels) ///
  legend(off) lcolor(green) lwidth(thick)

* SECTION II.C - Testing Cultural Cognition Hypotheses

* Calculating Cronbach's alpha for patentstrength
alpha reformpatents patentsinnovation

* Correlations w/ cultural measures
pwcorr hierarch patentstrength, sig
pwcorr individ patentstrength, sig
pwcorr hierarch copyrightstrength, sig
pwcorr individ copyrightstrength, sig
pwcorr hierarch tmstrength, sig
pwcorr individ tmstrength, sig

* Figure 3
sum hierarch
* note: mean = .31, 1SD above = .54, 1SD below = .07
* from nationally representative data (not publicly available),
* mean = .49, 1SD above = .80, 1SD below = .19
reg patentstrength hierarch
margins, at(hierarch=(.07 .19 .31 .49 .54 .80))
* then use Excel to graph

* Figure 4
sum individ
* note: mean = .53, 1SD above = .72, 1SD below = .34
* from nationally representative data (not publicly available),
* mean = mean = .68, 1SD above = .91, 1SD below = .45
reg patentstrength individ
margins, at(individ=(.34 .45 .53 .68 .72 .91))
* then use Excel to graph

* Table 1: Mean Cultural Variables for Different Political Groups
sum hierarch individ if party==1
sum hierarch individ if party==2
sum hierarch individ if politics==1 | politics==2
sum hierarch individ if politics==3 | politics==4
sum hierarch individ if politics==5

* Correlations w/ political measures
pwcorr patentstrength democrat, sig
pwcorr patentstrength republican, sig
pwcorr patentstrength con_lib, sig
pwcorr patentstrength libertarian, sig

* Patents/drugs correlation
pwcorr patentsdrugs_rescaled hierarch, sig
pwcorr patentsdrugs_rescaled individ, sig
pwcorr patentsdrugs_rescaled democrat, sig
pwcorr patentsdrugs_rescaled republican, sig
pwcorr patentsdrugs_rescaled con_lib, sig
pwcorr patentsdrugs_rescaled libertarian, sig

* SECTION II.D - Other Sources of Motivated Reasoning

* Practice time
pwcorr patentstrength practicetimepatents, sig
pwcorr patentstrength totalpatenttime, sig
pwcorr patentstrength practicetimeacquisition, sig
pwcorr patentstrength practicetimetransactional, sig
pwcorr patentstrength practicetimeowners, sig
pwcorr copyrightstrength practicetimecopyrights, sig
pwcorr copyrightstrength practicetimeacquisition, sig
pwcorr copyrightstrength practicetimetransactional, sig
pwcorr copyrightstrength practicetimeowners, sig
pwcorr tmstrength practicetimetrademarks, sig
pwcorr tmstrength practicetimeacquisition, sig
pwcorr tmstrength practicetimetransactional, sig
pwcorr tmstrength practicetimeowners, sig

* Practice area
pwcorr patentstrength techbiotech, sig
pwcorr patentstrength techchem, sig
pwcorr patentstrength techmotionpics, sig
pwcorr patentstrength techsculptural, sig
pwcorr patentstrength techsoftwarecopyrights, sig
pwcorr patentstrength techtvradio, sig
pwcorr patentstrength techwritten, sig

pwcorr copyrightstrength techmechanical, sig
pwcorr copyrightstrength techbiotech, sig
pwcorr copyrightstrength techchem, sig
pwcorr copyrightstrength techelectronics, sig
pwcorr copyrightstrength techoptics, sig
pwcorr copyrightstrength techsoftwarepatents, sig
pwcorr copyrightstrength techother, sig
pwcorr copyrightstrength techmotionpics, sig
pwcorr copyrightstrength techmusic, sig
pwcorr copyrightstrength techsculptural, sig
pwcorr copyrightstrength techsoftwarecopyrights, sig
pwcorr copyrightstrength techtvradio, sig
pwcorr copyrightstrength techwritten, sig

* Region correlations
pwcorr patentstrength midatlantic, sig
pwcorr patentstrength pacific, sig
pwcorr patentstrength MAbiochem, sig
reg patentstrength midatlantic techbiotech techchem
reg patentstrength pacific techsoftwarepatents

* SECTION II.E - Beliefs About Basis of IP Law

tab ipexplain
pwcorr patentstrength incent_or_rights, sig
bysort plagiarism: sum copyrightstrength
pwcorr copyrightstrength plagiarism, sig

* Property v. Regulation

tab propertyvsregulation2
pwcorr property patentstrength, sig
pwcorr property hierarch, sig
pwcorr property individ, sig
pwcorr hierarch_prop patentstrength, sig
pwcorr individ_prop patentstrength, sig
pwcorr hierarch patentstrength, sig
pwcorr individ patentstrength, sig

* SECTION II.F - Other Predictors and Non-Predictors

pwcorr patentstrength age, sig
reg patentstrength age hierarch
reg patentstrength age hierarch income_scale
pwcorr patentstrength income_scale, sig
pwcorr gender patentstrength, sig
pwcorr gender copyrightstrength, sig

pwcorr patentstrength quizscore, sig
pwcorr copyrightstrength quizscore, sig

* Figure 5
reg patentstrength c.hierarch c.quizscore c.hierarch#c.quizscore
margins, at(hierarch=(.19 .80) quizscore=(.1(.005)1))
marginsplot, x(quizscore) xtitle("Quiz Score") ytitle("Predicted PatentStrength") ///
  legend(label(1 "Egalitarian") label(2 "Hierarch"))

